home *** CD-ROM | disk | FTP | other *** search
/ QuickTime 2.0 Developer Kit / QuickTime 2.0 Developer Kit.iso / mac / MAC / Programming Stuff / Interfaces / PInterfaces / MacRuntime.p < prev    next >
Encoding:
Text File  |  1994-10-20  |  1.1 KB  |  67 lines  |  [TEXT/MPS ]
  1. {
  2. Created: Saturday, April 16, 1994 2:44:46 PM
  3.     MacRuntime.p
  4.     Pascal Interface to the Macintosh Libraries
  5.  
  6.         Copyright Apple Computer, Inc. 1994
  7.         All rights reserved
  8. }
  9.  
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15. {$IFC NOT UsingIncludes}
  16.     UNIT MacRuntime;
  17.     INTERFACE
  18. {$ENDC}
  19.  
  20. {$IFC UNDEFINED UsingMacRuntime AND UNDEFINED __MACRUNTIME__}
  21. {$SETC UsingMacRuntime := 1}
  22. {$SETC __MACRUNTIME__ := 1}
  23.  
  24. {$I+}
  25. {$SETC MacRuntimeIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingPasLibIntf}
  28. {$I $$Shell(PInterfaces)PasLibIntf.p}
  29. {$ENDC}
  30.  
  31. {$IFC UNDEFINED __CONDITIONALMACROS__}
  32. {$I ConditionalMacros.p}
  33. {$ENDC}
  34.  
  35. {$SETC UsingIncludes := MacRuntimeIncludes}
  36.  
  37. {$ALIGN MAC68K}
  38.  
  39. {
  40.  Miscellaneous Operations
  41. }
  42.  
  43. {$IFC NOT UNDEFINED __CFM68K__}
  44.     {$IFC NOT UNDEFINED UsingSharedLibs}
  45.         {$PUSH}
  46.         {$LibExport+}
  47.     {$ENDC}
  48. {$ENDC}
  49.  
  50.     FUNCTION IEStandAlone: BOOLEAN;
  51.     FUNCTION TrapAvailable(trap: INTEGER): BOOLEAN;
  52.  
  53. {$IFC NOT UNDEFINED __CFM68K__}
  54.     {$IFC NOT UNDEFINED UsingSharedLibs}
  55.         {$POP}
  56.     {$ENDC}
  57. {$ENDC}
  58.  
  59. {$ALIGN RESET}
  60.  
  61. {$ENDC}    { UsingIntEnv }
  62.  
  63. {$IFC NOT UsingIncludes}
  64.     END.
  65. {$ENDC}
  66.  
  67.